home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / GTW.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  17.6 KB  |  613 lines
  1. 1 REM NUCLEAR EXCHANGE
  2. 2 DIM CL(15),SX(15),SY(15),MB(20):FJ=1
  3. 3 DIM CT$(15),MB$(15),PP(15),DC(15,5)
  4. 5 UA=500:WG=50:EG=100:FG=EG:IG=WG
  5. 6 DATABOSTON,2899101,NEW YORK,10973716,WASHINGTON,3060922
  6. 7 DATAPITTSBURGH,2401362,DETROIT,4453051,MIAMI,1625781
  7. 8 DATACHICAGO,7103624,ST. LOUIS,2507468,DENVER,1620902
  8. 11 PP=760:FOR L=1 TO 15:READ CT$(L),PP(L):NEXT
  9. 12 DATASEATTLE,1607469,DALLAS,3974805,HOUSTON,2905353
  10. 13 DATAPHILADELPHIA,4824110,LOS ANGELES,7477503,SAN FRANCISCO,3250630
  11. 14 FOR L=54272 TO 54296:POKEL,0:NEXT:POKE54296,15
  12. 15 USSR=750:GOSUB1000
  13. 16 POKE53281,6:GOTO60
  14. 20 PRINT"[147][144]":REM THE UNITED STATES
  15. 21 PRINT"      THE UNITED STATES OF AMERICA":PRINT
  16. 22 PRINT "                                    [206][205]"
  17. 23 PRINT" [209][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205][175][175] [175][175]       [206][209][206]"
  18. 24 PRINT" [180]                       [166] [209][205][168][168][175][206][163][163][209][170]"
  19. 25 PRINT" [180]                      [209]     [209]   [209][172][203]"
  20. 26 PRINT" [180]                                 [182] "
  21. 27 PRINT" [180]                                 [169]"
  22. 28 PRINT" [180]            *                  [209][170]"
  23. 29 PRINT" [180]       [209]                [209]       [205][180]"
  24. 30 PRINT" [180]                                 [180]"
  25. 31 PRINT" [180][209]                                [205]"
  26. 32 PRINT" [205]                                 [206]"
  27. 33 PRINT"  [205]                               [206]"
  28. 34 PRINT"   [205]                              [161]"
  29. 35 PRINT"    [205][209]            [209]               [205]"
  30. 36 PRINT"     [205][175][175][175][175][175][175][175][175]         [175][175][175][175][175][175][175][175][175]  [170]"
  31. 37 PRINT"              [205][175][175]    [209][206]         [181] [181]"
  32. 38 PRINT"                 [205]  [206][184]          [182] [209]"
  33. 39 PRINT"                  [205][206]             [205][206] "
  34. 40 PRINT
  35. 50 IF FRE(0)<18000 THEN 4000
  36. 53 FOR L=1TO15:FORK=0TO4:POKE DC(L,5)+DC(L,K),102
  37. 54 POKE DC(L,5)+DC(L,K)+54272,6:NEXTK,L:RETURN
  38. 60 GOSUB 20
  39. 65 PRINT"           PRESS ANY KEY TO BEGIN"
  40. 70 GET A$:IF A$="" THEN 70
  41. 91 PRINT""
  42. 100 CT=INT(RND(TI)*15)+1:LQ=LQ-1
  43. 111 IF RND(TI)<TTH THEN 4000
  44. 122 CT$(CT)=""+CT$(CT)+"[146]"
  45. 123 IF CT=0 THEN 4000
  46. 127 PRINT"[147]":POKE53281,3 :
  47. 133 RG$="MEGATON":MM=MM+1
  48. 140 MT=INT(1+(20)*RND(TI)):
  49. 141 USSR=USSR-MT:IF USSR<0 THEN 3000
  50. 142 ZZ=MT:TZ=MT/100
  51. 147 BS$="SURFACE":IF RND(TI)>.8 THEN BS$="AIR"
  52. 149 PRINT"[147]"
  53. 153 POKE 54296,15
  54. 155 IF MM>1 THEN 164
  55. 158 POKE 54277,0:POKE54278,240:POKE54276,33
  56. 160 FORL=1TO7:FORK=10TO150STEP3:POKE54272,L:POKE54273,K:NEXTK,L
  57. 164 REM
  58. 170 PRINT,"MISSILE ATTACK LAUNCHED"
  59. 171 POKE 54277,0:POKE54278,240:POKE54276,17
  60. 172 FORL=1TO7:FORK=10TO150STEP3:POKE54272,L:POKE54273,K:NEXT:NEXT
  61. 173 POKE54276,0:POKE54296,0
  62. 175 IF RP(1)<82E+5 AND FJ=1 THEN 6000
  63. 177 IF SU=9 THEN 6000
  64. 185 PRINT"TARGET:"CT$(CT)
  65. 190 K1=.5:K2=.4:K3=.1
  66. 200 IFBS$="AIR"THEN K1=.7:K2=.25:K3=.05
  67. 205 PD=INT(PP(CT)*(K1+TZ))
  68. 210 PI=INT(PP(CT)*(K2-TZ))
  69. 215 PU=INT(PP(CT)*K3)
  70. 250 IF PD<0 THEN PD=-PD
  71. 251 IF PI<0 THEN PI=-PI
  72. 260 PRINT"INCOMING TARGETS VISIBLE ON RADAR SCREEN"
  73. 265 FOR L=1 TO 500:NEXT
  74. 270 PRINT"PRESS F1 FOR RADAR"
  75. 273 PRINT"PRESS F7 TO SURRENDER"
  76. 280 GET A$:IF A$="" THEN 280
  77. 281 IF A$="[136]"THEN 3450
  78. 282 IF A$="[133]" THEN 285
  79. 283 GOTO 280
  80. 285 POKE53281,10:GOSUB 20
  81. 290 POKE CL(CT)+54272,1:HY=0
  82. 300 ON CT GOTO 310,315,320,325,330,335,340,345,350,355,360,365,370,375,380
  83. 310 MC=79:MM=2:SS=4
  84. 312 GOTO 400
  85. 315 MC=79:MM=2:SS=5
  86. 317 GOTO 400
  87. 320 MC=24:MM=1:SS=10
  88. 322 GOTO 400
  89. 325 MC=36:MM=2:SS=7
  90. 327 GOTO 400
  91. 330 MC=22:MM=1:SS=6
  92. 332 GOTO 400
  93. 335 MC=15:MM=1:SS=20
  94. 337 GOTO 400
  95. 340 MC=18:MM=1:SS=7
  96. 342 GOTO 400
  97. 345 MC=16:MM=1:SS=11
  98. 347 GOTO 400
  99. 350 MC=40:MM=1:SS=10
  100. 352 GOTO 400
  101. 355 MC=5:MM=2:SS=5
  102. 357 GOTO 400
  103. 360 MC=34:MM=2:SS=17
  104. 362 GOTO 400
  105. 365 MC=39:MM=2:SS=19
  106. 367 GOTO 400
  107. 370 MC=79:MM=2:SS=6
  108. 372 GOTO 400
  109. 375 MC=21:MM=2:SS=17
  110. 377 GOTO 400
  111. 380 MC=14:MM=2:SS=13     
  112. 400 MN=MN+1
  113. 407 PRINT"";
  114. 410 PRINTTAB(MC)"";
  115. 420 ON MM GOSUB 2000,2100
  116. 421 POKE54296,15:POKE54276,129
  117. 422 POKEV+21,4:POKEV+41,1
  118. 423 IF BN=1 THEN 434
  119. 425 IF CT<=3 OR CT=6 OR CT=13 THEN POKEV+16,4
  120. 432 POKEV+4,SX(CT):POKEV+5,SY(CT)+10
  121. 433 GOTO435
  122. 434 POKEV+4,RX(CT):POKEV+5,RY(CT)+10
  123. 435 POKE54272,2:POKE54273,20
  124. 437 FOR L=15 TO 0 STEP-.05
  125. 440 POKE54296,L
  126. 442 IF L<10 THEN POKEV+41,7
  127. 443 IF L<5 THEN POKEV+41,8
  128. 445 NEXT
  129. 446 POKE54296,0:POKEV+16,0:POKEV+21,0:
  130. 450 IFBN=1THEN3210
  131. 451 IF BS$="AIR" THEN 465
  132. 452 A=RND(TI)*2+.5:GOTO2200
  133. 465 DC(CT,5)=CL(CT)
  134. 500 PRINT"[147]":POKE53281,4:GOSUB20
  135. 503 FOR L=1 TO 3500:NEXT:POKE53281,4
  136. 505 PRINT"[147]"CT$(CT)" HAS BEEN DESTROYED BY A ":PRINT
  137. 506 PRINTZZ" MEGATON NUCLEAR "+BS$+" BLAST"
  138. 507 TPK=TPK+(THS/10000):TPK=INT(TPK)
  139. 512 TPK=TPK+PD:FOR L=1 TO 3955:NEXT
  140. 513 PRINT"PRELIMINARY REPORTS INDICATE:"
  141. 514 PRINT"KILLED:"PD
  142. 515 PRINT"INJURED:"PI
  143. 516 PRINT"TOTAL U.S. DEAD:"TPK
  144. 517 PRINT"TOTAL SOVIET DEAD:"TRK
  145. 520 PRINT"AVAILABLE U.S. MEGATONNAGE:"UA
  146. 521 PRINT"ESTIMATED SOVIET MEGATONNAGE:"USSR
  147. 525 NW=33E+4:IFBS$="AIR"THENNW=1E+5
  148. 530 NW=NW*ZZ:THS=THS+NW
  149. 535 PRINT"THERE ARE NOW"THS" METRIC TONS"
  150. 536 PRINT"OF FALLOUT IN THE ATMOSPHERE"
  151. 540 IFTHS>9E+7 THENPRINT"[144]THIS CAN CAUSE CLIMACTIC CHANGE ON EARTH"
  152. 541 PP(CT)=PP(CT)-PD:IFTHS>1E+8 THEN 800
  153. 560 PRINT"        PRESS SPACE BAR TO CONTINUE   "
  154. 565 FOR L=1 TO 5000:NEXT
  155. 566 IFTPK>(TRK*2.5) AND LQ>1 THEN100
  156. 568 IFTRK<TPK THENLQ=0
  157. 569 IFLQ>1 THEN100
  158. 570 GETA$:IF A$="" THEN570
  159. 580 PRINT"[147]":POKE 53281,6
  160. 590 PRINT"PRESS [144]F1 FOR RADAR VIEW OF U.S."
  161. 591 PRINT"PRESS [144]F2 FOR RADAR VIEW OF U.S.S.R"
  162. 592 PRINT"PRESS [144]F3 FOR U.S. CITY POPULATION"
  163. 593 PRINT"PRESS [144]F4 FOR U.S.S.R. CITY POPULATION"
  164. 594 PRINT"PRESS [144]F5 TO LAUNCH I.C.B.M.S   "
  165. 595 PRINT"PRESS [144]F7 TO USE THE HOT LINE "
  166. 596 PRINT"PRESS [144]F8 TO CONTACT THE NATO ALLIES"
  167. 600 GETA$:IF A$=""THEN600
  168. 601 F=RND(TI)*RND(TI)*10000
  169. 605 IFA$="[133]" THEN GOSUB 20:FORL=1 TO F:NEXT:GOTO 100
  170. 610 IFA$="[134]" THEN750
  171. 620 IFA$="[135]" THEN1100
  172. 622 IFA$="[140]" THEN2600
  173. 625 IFA$="[136]" THEN1700
  174. 626 IFA$="[137]" THEN GOSUB5000:FORL=1TOF:NEXT:GOTO580
  175. 627 IFA$="[138]" THEN781
  176. 630 GOTO100
  177. 750 PRINT"[147]"
  178. 755 PRINT,"SURVIVING POPULATIONS"
  179. 760 FOR L=1TO15:PRINTCT$(L)"",PP(L):NEXT
  180. 765 PRINT,"PRESS '+' TO CONTINUE"
  181. 770 GETA$:IFA$="" THEN770
  182. 775 A$="[133]":GOTO601
  183. 781 PRINT"[147]SURVIVING SOVIET POPULATIONS"
  184. 782 FORL=1TO10:PRINTRC$(L)"",RP(L):NEXT
  185. 783 PRINT,"PRESS '+' TO CONTINUE"
  186. 784 GOTO770
  187. 800 PRINT"[147]":POKE53281,0
  188. 801 PRINT"CLIMACTIC THRESHOLD HAS BEEN REACHED!!"
  189. 805 FORL=1TO10:POKE54296,15
  190. 806 POKE54277,0:POKE54278,240:POKE54276,17
  191. 807 POKE54272,33:POKE54373,75
  192. 808 FORK=1TO110:NEXT:POKE54296,4
  193. 809 FORK=1TO 50:NEXT:NEXT
  194. 810 POKE54296,0:PRINT""
  195. 811 PRINT"SO MUCH FALLOUT HAS BEEN BLOWN INTO THE"
  196. 812 PRINT"STRATOSPHERE THAT THE CLIMATE OF THE "
  197. 813 PRINT"EARTH HAS BEEN CHANGED!!"
  198. 814 FOR L=1TO10000:NEXT:PRINT"[147]"
  199. 815 W=RND(TI):IFW<.03 OR W>.3 THEN815
  200. 816 PRINT"[158]SUNLIGHT INTENSITY":SI=W
  201. 817 GOSUB 940
  202. 820 PRINT"[154]1 MONTH:"SI"% OF PRE WAR LEVELS"
  203. 822 W=RND(TI):IFW<(SI/100)OR W>.7 THEN 822
  204. 823 GOSUB 940
  205. 825 PRINT"[154]2 MONTHS:"SI"% OF PRE WAR LEVELS"
  206. 827 W=RND(TI):IFW< (SI/100)OR W>1 THEN827
  207. 828 GOSUB 940
  208. 830 PRINT"[154]4 MONTHS:"SI"% OF PRE WAR LEVELS"
  209. 833 FOR L=1TO11000:NEXT:PRINT"[147]"
  210. 835 GOSUB 960
  211. 838 PRINT"[158]LAND SURFACE TEMPERATURE"
  212. 839 PRINT"[154]"
  213. 840 PRINT"1 MONTH:"TE "DEGREES FARENHEIT"
  214. 845 GOSUB 960
  215. 847 IFTE<F THEN845
  216. 848 PRINT""
  217. 850 PRINT"2 MONTHS:"TE "DEGREES FARENHEIT"
  218. 855 GOSUB 960
  219. 857 IFTE<F THEN855
  220. 860 PRINT"10 MONTHS:"TE "DEGREES FARENHEIT"
  221. 863 FOR L=1TO9000:NEXT:PRINT"[147]"
  222. 875 PRINT"[158]ULTRAVIOLET RADIATION"
  223. 880 W=RND(TI)*2.5:IF W<1.5 OR W>2.5 THEN 880
  224. 885 GOSUB 970
  225. 887 PRINT"1 YEAR:"UV" TIMES PRE WAR LEVELS"
  226. 890 W=RND(TI)*1.5:IF W<1 OR W>1.5 THEN 890
  227. 895 GOSUB 970
  228. 897 PRINT"2 YEARS:"UV" TIMES PRE WAR LEVELS"
  229. 900 FOR L=1TO9000:NEXT:PRINT"[147]"
  230. 910 PRINT,""
  231. 920 PRINT,"YOU HAVE DESTROYED THE WORLD"
  232. 930 GOTO930
  233. 940 PRINT"":SI=W
  234. 950 SI=SI*10000:SI=INT(SI):SI=SI/100
  235. 955 RETURN
  236. 960 F=TE:W=RND(TI)*30:W=W+3:TE=W
  237. 965 TE=TE*100:TE=INT(TE):TE=TE/100
  238. 966 RETURN
  239. 970 PRINT"[154]":UV=W:UV=UV*100:UV=INT(UV):UV=UV/100:RETURN
  240. 1000 FOR L=1TO15:READCL(L):NEXT
  241. 1001 DATA1220,1259,1417,1294,1251,1818
  242. 1002 DATA1288,1450,1433,1185,1682,1765,1298,1669,1506
  243. 1010 V=53248:POKE2042,13
  244. 1020 FORN=0TO62:READQ:POKEN+832,Q:NEXT
  245. 1022 DATA0,127,0,1,255,192,3,255,224,3,255,224
  246. 1024 DATA7,255,240,7,255,240,7,255,240,3,62,224,3,62,240,3,62,240
  247. 1026 DATA0,62,0,0,62,0,0,62,0,0,62,0,0,62,0
  248. 1028 DATA0,62,0,0,62,0,0,127,0,3,255,224,7,255,240,255,255,255
  249. 1030 FOR L=1TO15:READSX(L),SY(L):NEXT
  250. 1032 DATA48,60,40,70,25,108,255,85,232,73
  251. 1034 DATA32,185,207,78,223,113,88,108,25,65
  252. 1036 DATA160,158,183,178,32,83,56,158,32,128
  253. 1045 POKEV+41,1:FORL=1TO10:READRC$(L),RP(L):
  254. 1047 RP(L)=RP(L)+(RP(L)/8):NEXT
  255. 1050 FORL=1TO10:READRL(L):RL(L)=RL(L)-1:NEXT
  256. 1055 FORL=1TO10:READRX(L),RY(L):NEXT
  257. 1090 RETURN
  258. 1100 PRINT"[147]":POKE53281,14:POKE53280,6
  259. 1101 LCD$="":LZ$=""
  260. 1102 IF UA<=0 THEN PRINT"YOU ARE OUT OF MISSILES!!!":FORL=1TO3000:NEXT:GOTO4000
  261. 1105 GOSUB3100
  262. 1115 FORL=1TO10:DD=INT(49+(40)*RND(TI))
  263. 1120 IF DD>57 AND DD<65 THEN1115
  264. 1125 LCD$=LCD$+CHR$(DD):NEXT
  265. 1130 PRINT"[147]"
  266. 1135 LCD$=LEFT$(LCD$,10)
  267. 1140 PRINT"HERE IS YOUR LAUNCH CODE:"
  268. 1150 PRINT"",LCD$
  269. 1155 IFBN=1 THEN IL=1:GOTO1162
  270. 1160 PRINT"HOW MANY MISSILES (1-20)";:INPUT IL
  271. 1161 IF IL>20 THEN IL=20
  272. 1162 PRINT"YEILD,MT (1-20)";:INPUT IY
  273. 1163 IF IY>20 THEN IY=20
  274. 1165 IF UA-(IL*IY)<0 THEN PRINT"YOU HAVE"UA"MEGATONS LEFT":GOTO1150
  275. 1170 INPUT"INPUT LAUNCH CODE:";LZ$
  276. 1171 PRINTUA-(IL*IY)" MEGATONS LEFT"
  277. 1172 FOR K=1TO500:NEXT
  278. 1173 FOR L=1TO10:IF MID$(LCD$,L,1)<>MID$(LZ$,L,1) THEN1177
  279. 1175 NEXT
  280. 1176 GOTO1190
  281. 1177 POKE54296,15:PRINT"[147]"
  282. 1178 POKE54277,0:POKE54278,240:POKE54276,33
  283. 1179 POKE54272,34:POKE54373,75
  284. 1180 PRINT"THE CODES DO NOT MATCH[146]"
  285. 1181 PRINT"":BN=0
  286. 1183 PRINT"THE LAUNCH IS ABORTED"
  287. 1185 FOR L=1 TO 4000:NEXT:POKE54296,0
  288. 1187 GOTO100
  289. 1190 PRINT"[147]"
  290. 1195 UA=UA-(IL*IY)
  291. 1200 POKE53281,4:GOSUB20
  292. 1205 POKE54276,129:POKE54296,8
  293. 1210 FOR L=1TOIL
  294. 1220 MB(L)=INT(RND(TI)*400)+1324:NEXT
  295. 1224 FOR M=1724TO1063STEP-40
  296. 1227 FORL=1TOIL
  297. 1230 MB(L)=MB(L)-40:IF MB(L)<1024 THEN 1250
  298. 1235 X=MB(L)
  299. 1240 POKE X-40,30:POKEX+54232,0
  300. 1250 POKEX,113:POKEX+54272,1
  301. 1255 POKE54276,129:POKE54296,9
  302. 1260 NEXTL,M
  303. 1270 PRINT"[147]   MISSILES AWAY"
  304. 1280 POKE54296,0
  305. 1290 FORL=1400TO1STEP-1
  306. 1291 IF BN=1 AND L<1000 THEN3200
  307. 1295 PRINT"   KM TO IMPACT:"L"[157]     ":NEXT
  308. 1298 PRINT"[147]",:POKE53281,0
  309. 1299 PRINT"IMPACT"
  310. 1300 FORL=1TOIL:POKE54296,6
  311. 1310 FORK=1TO111:NEXTK,L
  312. 1315 USSR=INT(USSR*(1-(IL/100)))+1
  313. 1320 POKE54296,0:PRINT"[147]":TZ=IY/100
  314. 1330 FORL=1TOIL
  315. 1335 RD=INT(((5E+5)+((5E+5)*RND(TI))*(.70+TZ)))
  316. 1336 THS=THS+(IY*(1E+5)):TRK=TRK+RD
  317. 1340 NEXT:POKE53281,6
  318. 1345 IF THS>1E+8 THEN800
  319. 1350 PRINT"TOTAL U.S. DEAD:"TPK
  320. 1354 PRINT"TOTAL SOVIET DEAD:"TRK
  321. 1355 PRINT"AVAILABLE U.S. MEGATONNAGE:"UA
  322. 1360 PRINT"ESTIMATED SOVIET MEGATONNAGE:"USSR
  323. 1361 PRINT"THERE ARE NOW"THS" METRIC TONS"
  324. 1362 PRINT"OF FALLOUT IN THE ATMOSPHERE"
  325. 1363 IF THS>9E+7 THEN PRINT"[144]THIS CAN CAUSE CLIMACTIC CHANGE ON EARTH"
  326. 1367 PRINT"NOW IS THE PERFECT TIME TO ARRANGE FOR A "
  327. 1370 PRINT"CEASE FIRE. SHALL WE? (Y[146] OR N[146])";:INPUT A$
  328. 1375 FOR K=1TO900:NEXT
  329. 1380 IF A$="Y" THEN1400
  330. 1385 SU=9
  331. 1390 GOTO100
  332. 1400 PRINT"[147]":POKE53281,2
  333. 1405 PRINT"ACITVATING THE HOT LINE TO MOSCOW..."
  334. 1410 FOR L=1TO2300:NEXT
  335. 1420 PRINT"THE SOVIET PREMIER SAYS:"
  336. 1425 IF RX=3 THEN"'I TRIED TO TELL YOU IT WAS A MISTAKE!!'"
  337. 1426 IF TPK<1.1*TRK AND TPK>.9*TRK THEN 1450
  338. 1427 IF TRK<1.1*TPK AND TRK>.9*TPK THEN 1450
  339. 1428 IFTPK=TRK THEN1450
  340. 1429 IFTPK=0 THEN1435
  341. 1430 IFTPK>(TRK*3) OR TRK>(TPK*3) THEN1450
  342. 1435 PRINT"A CEASE FIRE IS IMPOSSIBLE AT THIS TIME"
  343. 1440 LQ=5:FORL=1TO4000:NEXT:GOTO100
  344. 1450 PRINT"'I AGREE TO A CEASE FIRE.'"
  345. 1453 FOR L=1TO3500:NEXT
  346. 1455 GOTO4000
  347. 1700 PRINT"[147]":POKE53281,2
  348. 1705 PRINT"ACITVATING THE HOT LINE TO MOSCOW..."
  349. 1707 PRINT"DO YOU WISH TO ARRANGE A CEASE FIRE"
  350. 1708 PRINT"WITH THE SOVIET PREMIER (Y OR N)";:INPUTA$
  351. 1710 IFA$="Y" THEN1410
  352. 1715 IFHY=1 THEN285
  353. 1717 FORL=1TOF:NEXT
  354. 1720 IF RND(TI)>.4 THEN1740
  355. 1725 PRINT"THE TECHNICIANS SAY THAT THE CALL ":PRINT"WILL NOT GO THROUGH!"
  356. 1730 PRINT"THEY SAY WE SHOULD TRY AGAIN LATER":FORL=1TO2000+F:NEXT
  357. 1735 GOTO580
  358. 1740 PRINT"THE SOVIET PREMIER SAYS :"
  359. 1744 IF RX<>0 THEN1750
  360. 1745 RX=(RND(TI)*4)+1
  361. 1750 ON RX GOTO1760,1770,1780,1790
  362. 1760 PRINT"'WE HAVE NOTHING TO DISCUSS'":GOTO1800
  363. 1770 PRINT"'I REFUSE TO TALK TO YOU'":GOTO1800
  364. 1780 PRINT"'IT IS A MISTAKE!! DO NOT RETALIATE!'":TTH=RND(TI):GOTO1800
  365. 1790 PRINT"'IT IS A RESPONSE TO YOUR NEW MISSILES!'"
  366. 1800 FORL=1TO5000+F:NEXT
  367. 1805 LQ=0:GOTO580
  368. 1999 END
  369. 2000 PPP=PPP-15
  370. 2005 FORL=1TOSS
  371. 2007 IF RND(TI)>.981 THEN2030
  372. 2010 PRINT"[205]";
  373. 2015 FORQ=1TOPPP:NEXTQ,L:RETURN
  374. 2030 PRINT"[157][157][157]MISFIRE":GOSUB2500
  375. 2033 PD=0:FORL=1TO2999:NEXT:PRINT"[147]":IF BN=1 THEN IY=0:RD=0:GOTO3275
  376. 2034 GOTO512
  377. 2100 PPP=PPP-15
  378. 2105 FORL=1TOSS
  379. 2107 IFRND(TI)>.981 THEN2130
  380. 2110 PRINT"/[157][157]";
  381. 2115 FORQ=1TOPPP:NEXTQ,L:RETURN
  382. 2130 PRINT"[157][157][157]MISFIRE":GOSUB 2500
  383. 2133 PD=0:FORL=1TO2999:NEXT:PRINT"[147]":IF BN=1 THEN IY=0:RD=0:GOTO3275
  384. 2134 GOTO 512
  385. 2200 ON A GOTO2210,2220
  386. 2210 DC(CT,1)=1:DC(CT,2)=2:DC(CT,0)=0:GOTO465
  387. 2220 DC(CT,1)=-1:DC(CT,2)=-2:DC(CT,0)=0:GOTO465
  388. 2500 POKE54296,15:POKE54276,129
  389. 2505 POKE54272,2:POKE54273,200
  390. 2510 FORL=1TO222:NEXT
  391. 2515 FORL=15TO0STEP-.5
  392. 2520 POKE54296,L:NEXT
  393. 2525 POKE54296,0:RETURN
  394. 2600 PRINT"[147]":POKE53281,6:POKE53280,14
  395. 2610 PRINT,"USING N.A.T.O. HOTLINE..."
  396. 2620 PRINT"WHICH GOVERNMENT WOULD YOU LIKE TO         CONTACT"
  397. 2630 PRINT"PRESS [144]F1 FOR ENGLAND":PRINT"PRESS [144]F3 FOR FRANCE"
  398. 2640 PRINT"PRESS [144]F5 FOR WEST GERMANY":PRINT"PRESS [144]F7 FOR ITALY"
  399. 2650 GETA$:IFA$=""THEN 2650
  400. 2655 PRINT"[147]"
  401. 2660 IFA$="[135]"THEN2700
  402. 2665 IFA$="[134]"THEN2750
  403. 2670 IFA$="[133]"THEN2800
  404. 2675 IFA$="[136]"THEN2850
  405. 2680 GOTO2600
  406. 2700 PRINT" THE WEST GERMAN CHANCELLOR SAYS:"
  407. 2706 IFWR>.333THEN 2708
  408. 2707 WR=(RND(TI))
  409. 2708 IFWR>.333 AND WR<.5 THEN2725
  410. 2710 IFWR<.333 THEN2720
  411. 2715 PRINT" THE FEDERAL REPUBLIC OF GERMANY WILL ":PRINT" SUPPORT THE U.S."
  412. 2716 PRINT" WE PLACE OUR MISSILES AT YOUR DISPOSAL.":FORK=1TO4000:NEXT
  413. 2717 UA=UA+WG:WG=0:GOTO2900
  414. 2720 PRINT" THE BUNDSTAG IS DEBATING WHETHER OR NOT"
  415. 2721 PRINT" TO SUPPORT THE U.S. IN ITS ACTIONS. I "
  416. 2722 PRINT " WILL HAVE TO LET YOU KNOW."
  417. 2723 FORL=1TO4000:NEXT:GOTO2900
  418. 2725 PRINT" THE FEDERAL REPUBLIC OF GERMANY IS":
  419. 2726 PRINT" DECLARING A CONDITION OF NEUTRALITY FOR THE DURATION OF THE PRESENT
  420. 2727 [153]" CONFLICT. MILITARY AID WILL NOT BE      GIVEN TO ANY NATION."
  421. 2728 [129]K[178]1[164]9000:[130]:[137]2900
  422. 2750 [153]" THE FRENCH PRESIDENT SAYS:"
  423. 2756 [139]FR[177].333[167] 2758
  424. 2757 FR[178]([187](TI))
  425. 2758 [139]FR[177].333 [175] FR[179].5 [167]2775
  426. 2760 [139]FR[179].333 [167]2770
  427. 2765 [153]" THE FRENCH REPUBLIC IS DECLARING ITSELF NEUTRAL AT PRESENT."
  428. 2767 [153]" MILITARY AID WILL NOT BE GIVEN TO ANY   BELLIGERENT NATION."
  429. 2768 [129]K[178]1[164]6000:[130]:[137]2900
  430. 2770 [153]"THE PARLIAMENT IS DEBATING OUR POSITION"
  431. 2771 [153]"OF SUPPORT FOR THE U.S.'S ACTIONS. I "
  432. 2772 [153] "WILL HAVE TO LET YOU KNOW."
  433. 2773 [129]L[178]1[164]6000:[130]:[137]2900
  434. 2775 [153]" THE FRENCH REPUBLIC WILL SUPPORT THE    UNITED STATES."
  435. 2776 [153]" WE PLACE OUR MISSILES AT YOUR DISPOSAL.":[129]K[178]1[164]4000:[130]
  436. 2777 UA[178]UA[170]FG:FG[178]0:[137]2900
  437. 2800 [153]" THE BRITISH PRIME MINISTER SAYS:"
  438. 2806 [139]ER[177].333[167] 2808
  439. 2807 ER[178]([187](TI))
  440. 2808 [139]ER[177].333 [175] ER[179].4 [167]2825
  441. 2810 [139]ER[179].333 [167]2820
  442. 2815 [153]" THE UNITED KINGDOM SUPPORTS THE UNITED  STATES."
  443. 2816 [153]" WE PLACE OUR MISSILES AT YOUR DISPOSAL.":[129]K[178]1[164]4000:[130]
  444. 2817 UA[178]UA[170]EG:EG[178]0:[137]2900
  445. 2820 [153]" PARLIAMENT IS DEBATING WHETHER OR NOT"
  446. 2821 [153]" TO SUPPORT THE U.S. IN ITS ACTIONS. I "
  447. 2822 [153] " WILL HAVE TO LET YOU KNOW."
  448. 2823 [129]L[178]1[164]4000:[130]:[137]2900
  449. 2825 [153]" THE UNITED KINGDOM IS HEREBY DECLARING"
  450. 2826 [153]" ITSELF NEUTRAL AT THE PRESENT TIME."
  451. 2827 [153]" MILITARY AID CANNOT BE OFFERED TO ANY   NATION."
  452. 2828 [129]K[178]1[164]9000:[130]:[137]2900
  453. 2850 [153]" THE ITALIAN PRESIDENT SAYS:"
  454. 2856 [139]IR[177].333[167] 2858
  455. 2857 IR[178]([187](TI))
  456. 2858 [139]IR[177].333 [175] IR[179].75 [167]2875
  457. 2860 [139]IR[179].333 [167]2870
  458. 2870 [153]"THE PARLIAMENT IS DEBATING OUR POSITION"
  459. 2871 [153]"OF SUPPORT FOR THE U.S.'S ACTIONS. I "
  460. 2872 [153] "WILL HAVE TO LET YOU KNOW."
  461. 2873 [129]L[178]1[164]6000:[130]:[137]2900
  462. 2875 [153]" THE ITALIAN GOVERNMENT SUPPORTS THE     UNITED STATES."
  463. 2876 [153]" WE PLACE OUR MISSILES AT YOUR DISPOSAL.":[129]K[178]1[164]4000:[130]
  464. 2877 UA[178]UA[170]FG:FG[178]0:[137]2900
  465. 2878 [129]K[178]1[164]9000:[130]:[137]2900
  466. 2900 [129]K[178]1[164]4000:[130]:[153]"LOAD"
  467. 2920 [139] [187](TI)[170][187](TI)[179][187](TI) [167]100
  468. 2930 [129]K[178]1[164]1200:[130]:[137]580
  469. 3000 [153]"LOAD"
  470. 3010 [153],"THE SOVIETS SURRENDER!!!ONONON":[137]4010
  471. 3030 [131] MOSCOW,8200000,LENINGRAD,4800000,KIEV,2200000,DNEPROPETROVSK,1800000
  472. 3032 [131] KHARKHOV,1400000,GORKY,1300000,ODESSA,1300000
  473. 3034 [131] MINSK,1300000,ARKHANGEL,1300000,SVERDLOVSK,1200000
  474. 3035 [131] 1488,1397,1558,1632,1608,1449,1679,1473,1252,1453
  475. 3040 [131] 200,125,111,108,119,141,71,157,199,150
  476. 3045 [131] 208,116,127,165,79,124,231,77,239,116
  477. 3100 [153]"LOAD"
  478. 3105 [153]
  479. 3110 [153]"      SOVIET TARGET CITIES (EUROPE)":[153]
  480. 3120 [129]L[178]1[164]5:[153]L"-"RC$(L);[163]20)L[170]5"-"RC$(L[170]5):[153]:[130]
  481. 3127 [153]"INPUT 0 FOR SALVO"
  482. 3130 [153]" WHICH CITY";:[133] CT
  483. 3131 [139] CT[178]0 [167] [142]
  484. 3140 BN[178]1:[145] CT [137] 3145,3150,3155,3160,3165,3170,3175,3180,3185,3190
  485. 3145 MM[178]1:MC[178]12:SS[178]13
  486. 3147 [137]3195
  487. 3150 MM[178]1:MC[178]3:SS[178]11
  488. 3152 [137]3195
  489. 3155 MM[178]1:MC[178]0:SS[178]14
  490. 3157 [137]3195
  491. 3160 MM[178]2:MC[178]22:SS[178]16
  492. 3162 [137]3195
  493. 3165 MM[178]1:MC[178]9:SS[178]16
  494. 3167 [137]3195
  495. 3170 MM[178]1:MC[178]14:SS[178]12
  496. 3172 [137]3195
  497. 3175 MM[178]2:MC[178]30:SS[178]17
  498. 3177 [137]3195
  499. 3180 MM[178]2:MC[178]19:SS[178]13
  500. 3182 [137]3195
  501. 3185 MM[178]2:MC[178]32:SS[178]7
  502. 3187 [137]3195
  503. 3190 MM[178]1:MC[178]18:SS[178]11
  504. 3195 SS[178]SS[171]1:[142]
  505. 3200 [141]5000:[151]RL(CT)[170]54272,1:[137]407
  506. 3210 [143]
  507. 3220 RC(CT)[178]RL(CT)
  508. 3240 [153]"LOAD":[151]53281,4:[141]5000
  509. 3245 [129]L[178]1[164]3500:[130]:[153]"LOAD"
  510. 3250 [151]53281,4
  511. 3252 RC$(CT)[178]""[170]RC$(CT)[170]"WAIT"
  512. 3255 [153]""RC$(CT)" HAS BEEN DESTROYED BY A ":[153]
  513. 3260 [153]IY"MEGATON NUCLEAR AIR BLAST"
  514. 3265 TRK[178][181](TRK[170](TH[173]10000))
  515. 3267 RD[178][181](RP(CT)[172](.70[170]TZ))
  516. 3270 TRK[178]TRK[170]RD:[129]L[178]1[164]3955:[130]
  517. 3275 [153]"PRELIMINARY REPORTS INDICATE:"
  518. 3290 TZ[178]IY[173]100:RI[178][181](RP(CT)[172](.25[171]TZ))
  519. 3295 RU[178][181](RP(CT)[172](.05))
  520. 3300 [153]"KILLED:"RD
  521. 3305 [153]"INJURED:"RI
  522. 3306 [153]"TOTAL SOVIET DEAD:"TRK
  523. 3310 NW[178]1E[170]5:THS[178]THS[170](NW[172]IY)
  524. 3316 [153]"TOTAL U.S. DEAD:"TPK
  525. 3320 [153]"THERE ARE NOW"THS" METRIC TONS"
  526. 3322 TRK[178]TRK[170](THS[173]10000):TRK[178][181](TRK)
  527. 3325 [153]"OF FALLOUT IN THE ATMOSPHERE"
  528. 3330 [139] THS[177]9E[170]7 [167] [153]"STOPTHIS CAN CAUSE CLIMACTIC CHANGE ON EARTH"
  529. 3335 RP(CT)[178]RP(CT)[171]RD:BN[178]0
  530. 3340 [139] THS[177]1E[170]8 [167] 800
  531. 3345 [153]"        PRESS SPACE BAR TO CONTINUE   "
  532. 3350 [129]L[178]1[164]5000:[130]
  533. 3355 [139]TRK[179]TPK [167] LQ[178]0
  534. 3360 [139]LQ[177]1 [167]100
  535. 3365 [161]A$:[139] A$[178]"" [167]3365
  536. 3366 [139]TPK[177](TRK[172]2.5) [167]3400
  537. 3370 [137]100
  538. 3400 [153]"LOAD THE SOVIET PREMIER DEMANDS A SURRENDER!"
  539. 3410 [153]" HE SAYS HIS COUNTRY HAS BEATEN YOU."
  540. 3415 [153]" HE ASKS YOU TO LOOK AT THE OVER 2:1     DEATH RATIO."
  541. 3420 [153],"SOVIET DEAD:"TRK:[153],"U.S. DEAD:"TPK
  542. 3425 [153]" HE SAYS THAT THE FUTURE OF THE WORLD IS UP TO YOU."
  543. 3430 [153]" HE WANTS YOUR ANSWER NOWWAIT!"
  544. 3440 [153],"SWAITURRENDER OR FWAITIGHT";
  545. 3445 [133] A$:[139] A$[178]"F" [167] LQ[178]5:[137]100
  546. 3450 [153]"LOAD":[151]53281,0:[151]53280,0
  547. 3460 [153]" SYSYOU HAVE BETRAYED YOUR HOMELAND!!!"
  548. 3465 [129]L[178]1[164]2000:[130]
  549. 3470 [153]" SOVIET TROOPS HAVE LANDED IN ALASKA!"
  550. 3475 [153]" THEY ARE SETTING UP THE HEADQUARTERS"
  551. 3477 [153]" FOR SOVIET AMERICA!!!"
  552. 3480 [153]" THE WORLD IS NO LONGER FREE!"
  553. 3999 [128]
  554. 4000 [153]"LOAD":[151]53281,6
  555. 4010 [153]"","THE WAR IS OVER!!!"
  556. 4020 [153]""TPK" AMERICANS WERE KILLED TODAY"
  557. 4030 [153]""TRK"RUSSIANS WERE KILLED TODAY"
  558. 4035 [153]"THERE ARE NOW"THS" METRIC TONS"
  559. 4036 [153]"OF FALLOUT IN THE ATMOSPHERE"
  560. 4040 [139] THS[177]9E[170]7 [167] [153]"STOPTHIS CAN CAUSE CLIMACTIC CHANGE ON EARTH"
  561. 4045 [153]""
  562. 4050 [139] TRK[179]TPK [167] [153]"THE AMERICAN PEOPLE IMPEACH YOU..."
  563. 4052 [139] TRK[179]TPK [167] [153]"YOU ARE FOUND GUILTY AND ";
  564. 4055 [139](TRK[172]3)[179]TPK [167] [153]"EXECUTED!!":[128]
  565. 4056 [139](TRK[172]2)[179]TPK [167] [153]"IMPRISONED!!":[128]
  566. 4057 [139] TRK[179]TPK [167] [153]"THROWN OUT!!":[128]
  567. 4060 [139] (TRK[172]3)[177]TPK [167] [153]"THE UN PUTS YOU ON TRIAL FOR WAR CRIMES"
  568. 4062 [139] (TRK[172]3)[177]TPK [167] [153]"YOU ARE FOUND GUILTY AND ";
  569. 4065 [139] (TRK[172]3)[177]TPK [175]RX[178]3 [167] [153]"EXECUTED!!":[128]
  570. 4066 [139] (TRK[172]3)[177]TPK [167] [153]"IMPRISONED.":[128]
  571. 4070 [139] TPK[178]TRK [167] [153]" YOU ARE HAILED AS ONE OF THE GREATEST"
  572. 4075 [139] TPK[178]TRK [167] [153]" PEACEKEEPERS IN THE HISTORY OF THE "
  573. 4077 [139] TPK[178]TRK [167] [153]" WORLD."
  574. 4999 [128]
  575. 5000 [153]"LOAD":[143] THE SOVIET UNION
  576. 5001 [151] 53281,0
  577. 5010 [153]"THE UNION OF SOVIET SOCIALIST REPUBLICS"
  578. 5011 [153]"            EUROPEAN SECTOR"
  579. 5012 [153]"                          (null)TAB(TAB(TAB((null)"
  580. 5014 [153]"                         (null)     FN"
  581. 5016 [153]"                     (null)STR$VALUSR  (null)  (null)U"
  582. 5017 [153]"               (null)(null)(null)(null)ASCLEN(null)       THEN R"
  583. 5018 [153]"            ANDAND(null)               INTA"
  584. 5019 [153]"         ANDAND(null)                 + L"
  585. 5020 [153]"       AND(null)   (null)                CHR$"
  586. 5022 [153]"      (null)                 (null)   (null)GET M"
  587. 5023 [153]"     (null)  (null)              (null)     ABS T"
  588. 5024 [153]"     (null)                       THEN S"
  589. 5026 [153]"      SGN      (null)               THEN"
  590. 5028 [153]"      FN                (null)     (null)"
  591. 5030 [153]"     ABS (null)              ANDANDANDANDAND(null)USRUSR"
  592. 5032 [153]"      USRUSRUSRUSRUSRUSR(null)AND(null)       (null)      "
  593. 5034 [153]"              (null)ANDANDANDAND   (null)    "
  594. 5035 [153]"                   (null)ANDAND(null)"
  595. 5036 [153]"                      USR
  596. 5050 IF FRE(0)<18000 THEN 4000
  597. 5053 FORL=1TO10:POKERC(L),102
  598. 5054 POKERC(L)+54272,6:NEXT
  599. 5055 RETURN
  600. 6000 PRINT"[147]   MASSIVE SOVIET ATTACK IN PROGRESS"
  601. 6010 FOR L=750 TO 100 STEP-1:PRINT"   KM TO IMPACT:"L:NEXT
  602. 6020 GOSUB 20:FJ=0:POKE V+21,255
  603. 6030 VB=INT(RND(TI)*21)
  604. 6031 FOR L=1 TO VB
  605. 6032 POKEV+4,SX(RND(TI)*15):POKEV+5,SY(RND(TI)*15)
  606. 6033 NEXT:POKE V+21,0:SU=0
  607. 6035 UA=INT(UA*(1-(VB/100)))
  608. 6040 TZ=RND(TI)*2
  609. 6045 PK=INT(((5E+6)+((5E+6)*RND(TI))*(.7))):TPK=TPK+PK
  610. 6050 THS=THS+INT(VB*(TZ*(1E+6)))
  611. 6060 USSR=USSR-INT(VB*(TZ*10))
  612. 6065 GOTO 513
  613.